﻿Imports IBR.NewSolution.NewModule

Namespace Abms

    Public Class Prueba

        Private _prueba As IPrueba

        'Al cargar el formulario
        Private Sub Prueba_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
            Try
                _prueba = CType(RemotingHelper.getObject(GetType(IPrueba)), IPrueba)
                Me.ObjetoReglasNegocio = _prueba

            Catch ex As Exception
                Lincker.US.Display.ShowError(Me.ToString.Substring(0, Me.ToString.IndexOf(",")), Common.Env.Operador, Common.Env.Terminal, ex.Message)
            End Try
        End Sub

        'Al moverse entre registros
        Private Sub Prueba_Display() Handles Me.Display
            'Habilita el botón de impresión y depuración
            btnListador.Enabled = True
            btnDepurar.Enabled = True
        End Sub

        'Al presionar el botón "Imprimir"
        Private Sub btnListador_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnListador.Click
            Dim frmListadoPruebas As New NewSolution.NewModule.Listados.Prueba
            frmListadoPruebas.MdiParent = Me.MdiParent
            frmListadoPruebas.Show()
        End Sub

        'Al presionar el botón "Depurar"
        Private Sub btnDepurar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDepurar.Click
            Dim frmDepurarPruebas As New NewSolution.NewModule.Procesos.WPpruebaWizard
            frmDepurarPruebas.MdiParent = Me.MdiParent
            frmDepurarPruebas.Show()
        End Sub
    End Class

End Namespace
